Tính tổng (biến T) 4 số nguyên được nhập từ bàn phím là các biến a,b,c,d. *
giúp mình với mình cần gấp lắm ạ!!!
Những câu hỏi liên quan
Tính tổng (biến T) 4 số nguyên được nhập từ bàn phím là các biến a,b,c,d. (viết cả 3 phần 'Xác định bài toán, Xác định bài toán với viết chương trình') mik đang cần gấp ạ
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,d,t;
int main()
{
cin>>a>>b>>c>>d;
t=a+b+c+d;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Tính tổng (biến T) 4 số nguyên được nhập từ bàn phím là các biến a,b,c,d. * Chỉ ra input,output
#include <bits/stdc++.h>
using namespace std;
long long a,b,c,d;
int main()
{
cin>>a>>b>>c>>d;
cout<<a+b+c+d;
return 0;
}
Đúng 0
Bình luận (0)
CÓ BẠN NÀO GIỎI MÔN NÀY K Ạ GIÚP MIK VỚI MIK CẦN GẤP LẮM Ạ Cho hai biến a,b, có kiểu dữ liệu số nguyên. Em hãy viết chương trình Pascal thực hiện các yêu cầu sau: a) Khai báo hai biến a,b. b) Nhập giá trị của hai biến a,b từ bàn phím. c) In kết quả tổng của a,b ra màn hình.
Program tinh_tong;
uses crt;
var a,b:Integer;
begin
Write('Nhap gia tri a: ');
Readln(a);
Write('Nhap gia tri b: ');
Readln(b);
Writeln('Tong: ',a+b);
Readln();
end.
Đúng 0
Bình luận (0)
tính tổng các bội số của x trong khoảng từ a đến b, với a b là các số nguyên được nhập vào từ bàn phím.
pascal ạ, giúp mình với nhé
uses crt;
var a,b,x,t,i:integer;
begin
clrscr;
readln(a,b,x);
t:=0;
for i:=a to b do
if i mod x=0 then t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình tính tổng các số chẵn trong dãy số nguyên A1, A2, ..., An. Biết rằng n, A1, A2, ..., An là các số nguyên nhập từ bàn phím (n>0)?
Các bạn giúp mình nha ,mình cần gấp lắm
program Tinhtong;
uses crt;
var a:array[1..100] of integer;
sum,n:integer;
begin clrscr;
write('Nhap n = '); readln(n);
for i:=1 to n do
begin
write('a[',i,'] = '); readln(a[i]);
end;
sum:=0;
for i:=1 to n do
if (a[i] mod 2 = 0) then sum:=sum+a[i];
write('Tong cac so chan = ',sum);
readln;
end.
Đúng 2
Bình luận (1)
1.Viết 1 chương trình pascal nhập vào từ bàn phím 4 số nguyên a, b, c, d rồi in ra màn hình dãy thứ nhất là tổng của 4 số trên, dãy thứ 2 là giá trị lớn nhất của chúng.
Giúp mình với...mình cần gấp
Xem chi tiết
Program HOC24;
var a,b,c,d,max: integer;
t: longint;
begin
write('Nhap a; b; c; d: '); readln(a,b,c,d);
t:=a+b+c+d;
writeln('Tong 4 so tren la: ',t);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
write('So lon nhat cua chung la: ',max);
readln
end.
Đúng 3
Bình luận (0)
*Cách khác:
uses crt;
var a,b,c,d,max:integer;
begin
clrscr;
write('Nhap a='); readln(a);
write('Nhap b='); readln(b);
write('Nhap c='); readln(c);
write('Nhap d='); readln(d);
writeln('Tong cua 4 so la: ',a+b+c+d);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
if max<d then max:=d;
writeln('Gia tri lon nhat la: ',max);
readln;
end.
Đúng 1
Bình luận (0)
9 tháng 5 2021 lúc 17:03
Đề: Viết chương trình nhập từ bàn phím số nguyên dương n và dãy số từ \(a_1\) , \(a_2\) , ... , \(a_n\) . In ra màn hình tổng các số lẻ có trong dãy số.
P/S: Mọi người giúp mình với, mình đang cần gắp lắm ạ!
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2<>0 then t:=t+a[i];
writeln(t);
readln;
end.
Đúng 1
Bình luận (1)
Câu 1:Nhập vào mảng a gồm n phần tử là số nguyên(n nhập từ bàn phím).
Câu 2: In ra dãy vừa nhập
Câu 3: In ra các số lẻ
Câu 4: Tính tổng các số vừa nhập
Câu 5: Tính trung bình cộng các số vừa nhập
mk cần gấp lắm ạ,làm ơn giúp mk:(((
uses crt;
var a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do write(a[i]:4);
writeln;
for i:=1 to n do
if (a[i] mod 2<>0) then write(a[i]:4);
writeln;
t:=0;
for i:=1 to n do t:=t+a[i];
writeln(t);
writeln(t/n:4:2);
readln;
end.
Đúng 0
Bình luận (0)
1) dùng lệnh lặp While...do đếm các số nguyên tố từ 1 đến n (n là số nhập từ bàn phím)
2) dùng lệnh lặp While...do để tính tổng các số nguyên tố được nhập tuè bàn phím.
mn giải hộ mình với ạ. mình xin cảm ơn ạ